;; -*- scheme -*-
; object definitions ...
(define-object SoundControl
  (in-module "Vlc")
  (parent "GtkHBox")
  (c-name "VlcSoundControl")
  (gtype-id "VLC_TYPE_SOUND_CONTROL")
)

(define-object VideoArea
  (in-module "Vlc")
  (parent "GtkWidget")
  (c-name "VlcVideoArea")
  (gtype-id "VLC_TYPE_VIDEO_AREA")
)

;; Enumerations and flags ...


;; From vlcsoundcontrol.h

(define-function vlc_sound_control_get_type
  (c-name "vlc_sound_control_get_type")
  (return-type "GType")
)

(define-function vlc_sound_control_new
  (c-name "vlc_sound_control_new")
  (is-constructor-of "VlcSoundControl")
  (return-type "GtkWidget*")
)



;; From vlcvideoarea.h

(define-function vlc_video_area_get_type
  (c-name "vlc_video_area_get_type")
  (return-type "GType")
)

(define-function vlc_video_area_new
  (c-name "vlc_video_area_new")
  (is-constructor-of "VlcVideoArea")
  (return-type "GtkWidget*")
  (parameters
    '("GdkPixbuf*" "pixbuf")
  )
)

(define-method get_xid
  (of-object "VlcVideoArea")
  (c-name "vlc_video_area_get_xid")
  (return-type "XID")
)

(define-method set_preferred_size
  (of-object "VlcVideoArea")
  (c-name "vlc_video_area_set_preferred_size")
  (return-type "none")
  (parameters
    '("gint" "width")
    '("gint" "height")
  )
)

(define-method set_pixbuf
  (of-object "VlcVideoArea")
  (c-name "vlc_video_area_set_pixbuf")
  (return-type "none")
  (parameters
    '("GdkPixbuf*" "pixbuf")
  )
)

(define-method get_pixbuf
  (of-object "VlcVideoArea")
  (c-name "vlc_video_area_get_pixbuf")
  (return-type "GdkPixbuf*")
)


